home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO021.dsk / VSCAN.bas < prev   
BASIC Source File  |  2012-02-16  |  1KB  |  23 lines
  1. 100  HOME : PRINT "VSCAN -- Copyright 1985 Morgan Davis"
  2. 110  ONERR  GOTO 130
  3. 120  &  STR$(36,61): PRINT : PRINT : POKE 222,0: POKE 216,0
  4. 130  IF   NOT  PEEK(222)  THEN 150
  5. 140  PRINT : PRINT "AmperWorks not installed!": PRINT : END 
  6. 150  DIM ST$(12),SP%(12),F$(500)
  7. 160  INPUT "Directory to scan: ";DIR$: & UCASE(DIR$)
  8. 170  INPUT " Output to slot #: ";SLOT$
  9. 180  IF SLOT$ >"0"  AND SLOT$ <"6"  THEN  PRINT  CHR$(4)"PR#"SLOT$
  10. 190  POKE 34,6: VTAB 6: PRINT 
  11. 200  IF  LEFT$(DIR$,1) < >"/"  THEN DIR$ = "/" +DIR$
  12. 210  IF  RIGHT$(DIR$,1) < >"/"  THEN DIR$ = DIR$ +"/"
  13. 220 ST$(0) = DIR$: PRINT "Directory: "DIR$: PRINT :SP% = 0
  14. 230 ST%(SP%) = 0
  15. 240 I = ST%(SP%)
  16. 250  & FILES(ST$(SP%),F$),F: & SRT(F$,F)
  17. 260 I = I +1:ST%(SP%) = I
  18. 270  IF I >F  THEN SP% = SP% -1: IF SP% > = 0  THEN 240
  19. 280  IF SP% <0  THEN  POKE 34,0: VTAB 23: PRINT  CHR$(4)"PR#0": END 
  20. 290  PRINT  SPC( (SP% +1) *6)F$(I)
  21. 300  & /ST$(SP%) +F$(I),I$
  22. 310  ON  ASC( MID$ (I$,5)) < >15 GOTO 260
  23. 320 SP% = SP% +1:ST$(SP%) = ST$(SP% -1) +F$(I) +"/": GOTO 230